home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Themes / Windows-Converted / Movies / ForrestGump.theme < prev    next >
Text File  |  1998-10-26  |  2KB  |  54 lines
  1. /* D5THEME
  2.  
  3.    Forrest_Gump_(High_Colo.theme
  4.  
  5.    Directory Opus Magellan II Theme File
  6. */
  7.  
  8. parse arg dopus_port apply_flags
  9. if dopus_port='' then
  10.     dopus_port='DOPUS.1'
  11. address value dopus_port
  12.  
  13. if apply_flags='' then
  14.     apply_flags='PFBS'
  15. else
  16.     apply_flags=upper(apply_flags)
  17.  
  18. options results
  19. options failat 21
  20.  
  21. /* Set background pictures */
  22. if index( apply_flags , "B") ~= 0 then do
  23.     dopus  set  background on
  24.     dopus  set  background "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest wallpaper.bmp'" desktop center precision exact
  25.     dopus clear background lister
  26.     dopus clear background req
  27. end
  28.  
  29. /* Set sound events */
  30. if index( apply_flags , "S") ~= 0 then do
  31.     dopus  set  sound "'Bad disk inserted'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest recycle empty.wav'" 64
  32.     dopus  set  sound "'Startup'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest windows start.wav'" 64
  33.     dopus  set  sound "'Shutdown'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest exit windows.wav'" 64
  34.     dopus  set  sound "'Hide'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest exclamation.wav'" 64
  35.     dopus  set  sound "'Reveal'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest default.wav'" 64
  36.     dopus  set  sound "'Disk inserted'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest question.wav'" 64
  37.     dopus  set  sound "'Disk removed'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest default.wav'" 64
  38.     dopus clear sound "'Open lister'"
  39.     dopus clear sound "'Open buttons'"
  40.     dopus clear sound "'Open group'"
  41.     dopus clear sound "'Close lister'"
  42.     dopus  set  sound "'Close buttons'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest asterisk.wav'" 64
  43.     dopus  set  sound "'Close group'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest critical stop.wav'" 64
  44.     dopus clear sound "'FTP close connection'"
  45.     dopus clear sound "'FTP connect fail'"
  46.     dopus clear sound "'FTP connect success'"
  47.     dopus  set  sound "'FTP copy fail'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest program error.wav'" 64
  48.     dopus  set  sound "'FTP copy success'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest default.wav'" 64
  49.     dopus  set  sound "'FTP error'" "'DOPLUS:Themes/Windows/Movies/Forrest Gump/Forrest/forrest asterisk.wav'" 64
  50. end
  51.  
  52. /* Refresh Opus */
  53. dopus refresh all
  54.